www.gusucode.com > 茶都拼客网全功能版 8 > 茶都拼客网全功能版 8.8源码程序/teasdxmccom/茶都拼客网V8.8（全功能，无限制，完全开源）/Gu_city.asp

    <!--#include file="ku_top.asp"-->
<% id=request.querystring("guxing")%>
<%
function title()
title="城市联盟"
end function
%>

<div align="center">
<table cellpadding="0" cellspacing="0" width="100">
	<tr>
		<td height="5"></td>
	</tr>
</table>
</div>
<div align="center">
	<table border="0" width="980" height="454" cellpadding="0" cellspacing="0">
		<tr>
			<td height="454" width="740" valign="top">


			<div align="center">


			<table cellpadding="0" cellspacing="0" width="740" height="452">
				<tr>
					<td height="36" background="Ku_img/News/news_001.JPG">&nbsp;&nbsp;&nbsp;
					<font size="3"><b>城市联盟</b></font> </td>
				</tr>
				<tr>
					<td height="396" background="Ku_img/News/news_002.JPG" valign="top">
<!---->
<%
    set rsArt=server.createobject("adodb.recordset")
    sqlArt="select * from Gu_shi ORDER BY id ASC"
    rsArt.open sqlArt,conn,1,1
    
    if RsArt.eof or RsArt.bof then
    response.write"<div align='center'>还没有信息<div>"
    end if 
    do while not rsArt.eof
    shi = rsArt("class1")
    sid = rsArt("id")
    

%>					
<div align="center">
	<table cellpadding="0" cellspacing="1" width="730" bgcolor="#F5F5F5" height="70">

		<tr>
			<td height="31" bgcolor="#FFFFFF">&nbsp;<a href="index.asp?city=<%=sid%>">
			<b><%=shi%></b></a></td>
		</tr>
		<tr>
			<td height="36" bgcolor="#FFFFFF">
			<div align=center>
			<table border="0" width="98%"  cellpadding="1" cellspacing="3" >

<%
	set rskind=server.CreateObject("adodb.recordset")
sqlkind="select * from Gu_qu where class1="&sid&" order by ID asc"
rskind.open sqlkind,conn,1,1
if rskind.eof then
%>
<tr style="border: 1px solid #D0D4D9"><td>区县城市</td></tr>
<% else 

  dim k
  k=1
%>
<tr align="center" >
<% do while not rskind.eof%>
<td width="11%" style="border: 1px solid #D0D4D9" height="30"><a target="_blank" href="index.asp?city=<%=sid%>&q=<%=rskind("id")%>" ><%=rskind("class2")%></a> 
</td>
<% if k mod 9 =0 then%> 
</tr><tr align="center">
<% end if%><% k=k+1
   rskind.movenext
   loop
end if
rskind.close
set rskind=nothing
%>

	</tr>
</table>
</div>

			</td>
		</tr>
	</table>
</div>
<div align="center">
<table cellpadding="0" cellspacing="0" width="100">
	<tr>
		<td height="5"></td>
	</tr>
</table>
</div>
<% 
    rsArt.movenext  
    loop
    RsArt.Close
    Set RsArt=Nothing
%>
<!---->					
					</td>
				</tr>
								<tr>
									<td height="16" background="Ku_img/News/news_002.JPG" align=center></td>
								</tr>				
				<tr>
					<td height="4">
					<img border="0" src="Ku_img/News/news_003.JPG" width="740" height="4"></td>
				</tr>
			</table>


			</div>


			</td>
			<td height="454" width="8">　</td>
			<td height="454" width="232" valign="top">
			<!--#include file="Ku_type/Index_login.asp"-->
<div align="center">
<table cellpadding="0" cellspacing="0" width="100">
	<tr>
		<td height="5"></td>
	</tr>
</table>
</div>
			<!--#include file="Ku_type/Index_ppkind.asp"-->
<img border="0" src="pkxx-img/ad001.JPG" width="232">
<img border="0" src="pkxx-img/ad002.JPG" width="232">
<img border="0" src="pkxx-img/ad003.JPG" width="232">

			</td>
		</tr>
	</table>
</div>
<!--#include file="Ku_foot.asp"-->